home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / apd40ulb.zip / DEMO.SC < prev    next >
Text File  |  1993-06-17  |  1KB  |  65 lines
  1. ;****************************************************
  2. ;
  3. ;  A PARADOX 4.O UTILITY LIBRARY (APD40ULB.SC)
  4. ;
  5. ;  THIS FREEWARE HAS BEEN PREPARED BY:
  6. ;
  7. ;  MICHAEL MAKLER
  8. ;  10221 SLATER AVE
  9. ;  #103-315
  10. ;  FOUNTAIN VALLEY, CA 92708
  11. ;  (714) 571-8510
  12. ;
  13. ;  COPYRIGHT (C) 1993 MICHAEL MAKLER
  14. ;
  15. ;****************************************************
  16.  
  17. ;****************************************************************************
  18. ;  FILE: DEMO.SC
  19. ;
  20. ;  NOTES: THE PURPOSE OF THIS PROCEDURE IS TO DEMONSTRATE APD40ULB
  21. ;
  22. ;*****************************************************************************
  23. CLEAR
  24. CLEARALL
  25. CANVAS OFF
  26.         MonitorType = UPPER (MONITOR())
  27.         If Monitortype = "COLOR"
  28.            Then   PAINTCANVAS Attribute 30
  29.                                8,8 ,18,44
  30.                   Style Attribute  30
  31.            Else   PaintCanvas Border fill chr(254)
  32.                               Intense
  33.                               8,8 ,18,44
  34.                   Style Intense
  35.         Endif ;**** Monitortype = "COLOR" ****
  36.  
  37.  
  38. @9,0
  39. SETMARGIN 10
  40. TEXT
  41. PRINT REPORT PDOX40 UTIL DEMO
  42.  
  43. MICHAEL MAKLER
  44. 10221 SLATER AVE
  45. #103-315
  46. FOUNTAIN VALLEY, CA 92708
  47. (714) 571-8510
  48.  
  49. COPYRIGHT (C) 1993 MICHAEL MAKLER
  50. ENDTEXT
  51. CANVAS ON
  52. SLEEP 3000
  53. Release Procs All
  54. Release Procs All
  55. Release Vars all
  56.  
  57.  
  58. LibNAME.A = "UTLib"
  59. SETMARGIN OFF
  60. Message "RUNNING DEMO PROGRAM"
  61. LoadString = LibNAME.A
  62. AutoLib = LoadString
  63.  
  64. DEMO.A()
  65.